home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arovin1a / wander.bas < prev   
Encoding:
BASIC Source File  |  1999-10-09  |  587 b   |  31 lines
  1. Attribute VB_Name = "Wander"
  2. Option Explicit
  3. Dim HorDir As Boolean
  4. Dim VerDir As Boolean
  5. Public Function Haunt(frm As Form)
  6. If HorDir Then
  7. frm.Left = frm.Left - 600
  8. If frm.Left < 0 Then
  9. HorDir = False
  10. End If
  11. End If
  12. If HorDir = False Then
  13. frm.Left = frm.Left + 600
  14. If frm.Left > Screen.Width - frm.Width Then
  15. HorDir = True
  16. End If
  17. End If
  18. If VerDir Then
  19. frm.Top = frm.Top - 600
  20. If frm.Top < 0 Then
  21. VerDir = False
  22. End If
  23. End If
  24. If VerDir = False Then
  25. frm.Top = frm.Top + 600
  26. If frm.Top > Screen.Height - frm.Height Then
  27. VerDir = True
  28. End If
  29. End If
  30. End Function
  31.